From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 6 Sep 2002 19:46:24 +0000 (+0000)
Subject: (edmacro-subseq): Don't use cl-push/cl-pop.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~30760
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c870debbc6b299b214e516e191e8e8c921bea4f9;p=emacs.git

(edmacro-subseq): Don't use cl-push/cl-pop.
---

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index dc538ab5f92..9eac3a29055 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -595,7 +595,7 @@ If START or END is negative, it counts from the end."
 	     (if end
 		 (let ((res nil))
 		   (while (>= (setq end (1- end)) start)
-		     (cl-push (cl-pop seq) res))
+		     (push (pop seq) res))
 		   (nreverse res))
 	       (copy-sequence seq)))
 	    (t